home *** CD-ROM | disk | FTP | other *** search
- ; Initialize some very important variables
-
- (set progdir "SYS:WBStartup")
- (set vernum (getversion "exec.library" (resident)))
- (set ver (/ vernum 65536))
- (set installerversion @installer-version)
- (set installerver (/ installerversion 65536))
- (set installerrev (- installerversion (* installerversion 65536)))
-
- (if (= @language "deutsch")
- (if (>= ver 39)
- (
- (set progdir
- (askdir
- (prompt "Bitte wähle das Verzeichnis aus in dem das Programm liegen soll:")
- (help "Am besten wäre die WBStartup-Schublade")
- (default "SYS:WBStartup")
- )
- )
- (set @default-dest progdir)
- (set maxlastinputs
- (asknumber
- (prompt "Was soll die Maximal-Anzahl der Einträge im Befehlscache sein ?")
- (help "Im Befehlscache werden Einträge zwischengespeichert.Jeder Eintrag belegt z.Z. maximal 1 KByte, je nach Länge des Eintrags.")
- (default 32)
- )
- )
- (set docdir
- (askdir
- (prompt "Wohin soll die Anleitung hineinkopiert werden ?")
- (help "Normalerweise gibt es ein Verzeichnis HELP: unter OS3.x dafür, aber die Anleitung kann auch woanders liegen.")
- (default "HELP:")
- )
- )
- (copyfiles
- (prompt
- (cat "Kopiere die Datei \\"FinalExecute\\" nach "
- progdir
- "..."
- )
- )
- (help @copyfiles-help)
- (source "FinalExecute")
- (infos)
- (dest progdir)
- )
- (copyfiles
- (prompt
- (cat "Kopiere die Datei \\"FinalExecute.guide\\" nach "
- docdir
- "..."
- )
- )
- (help @copyfiles-help)
- (source "Docs/FinalExecuteD.guide")
- (newname "FinalExecute.guide")
- (dest docdir)
- (infos)
- (noposition)
- )
- (copylib
- (prompt "Kopiere die \"datatypes.library\" V45++ nach LIBS:...")
- (help @copylib-help)
- (confirm)
- (source "Libs/datatypes.library")
- (dest "LIBS:")
- )
- (copyfiles
- (prompt "Kopiere die Datei \\"finalexecute.catalog\\" nach LOCALE:Catalogs...")
- (help @copyfiles-help)
- (source "Catalogs/deutsch/finalexecute.catalog")
- (dest "LOCALE:Catalogs/deutsch/")
- )
- (copyfiles
- (prompt "Kopiere die Datei \\"lamp.mcc\\" nach MUI:Libs/MUI...")
- (help @copyfiles-help)
- (source "MUI/Libs/MUI/lamp.mcc")
- (dest "MUI:Libs/MUI")
- )
- (copyfiles
- (prompt "Kopiere die Datei \\"lamp.mcp\\" nach MUI:Libs/MUI...")
- (help @copyfiles-help)
- (source "MUI/Libs/MUI/lamp.mcp")
- (dest "MUI:Libs/MUI")
- )
- (working "Ändere nun die Tooltypes...")
- (set fulldir (tackon progdir "FinalExecute"))
- (tooltype
- (dest fulldir)
- (settooltype "MAXLASTINPUTS")
- )
- (tooltype
- (dest fulldir)
- (settooltype "MAXLASTINPUTS" ("%ld" maxlastinputs))
- )
- (message "Die Installation ist nun beendet !\n"
- "Für wichtige Fragen lesen Sie bitte die Anleitung.\n"
- "Die Voreinstellungen für Aufruf-Tasten, AppIcon usw. nehmen Sie bitte\n"
- "mit den MUI-Prefs des Programms vor.\n"
- "Benutzen Sie im Notfall das Programm `Exchange`\n"
- "aus Ihrer Commodities-Schublade im Tools-Verzeichnis zum Aufruf !\n\n"
- "Lamp.mcc/Lamp.mcp and all according files are Copyright © 1997 by Maik Schreiber/IQ Computing.\n"
- "Updates are always available at http://home.pages.de/~bZ/projekte/mcc_lamp/\n\n"
- "Datatypes.library V45 ©1996,1997 by Roland Mainz, dieses Paket beinhaltet nur die Library !\n"
- "Das vollständige und neueste Paket erhalten Sie im Aminet-Archiv !\n"
- )
- )
- (
- (abort "Du benötigst mindestens OS3.0 oder höher !")
- )
- )
- (if (>= ver 39)
- (
- (set progdir
- (askdir
- (prompt "Please choose the directory where the program should be placed:")
- (help "The best directory may be the SYS:WBStartup directory.")
- (default "SYS:WBStartup")
- )
- )
- (set maxlastinputs
- (asknumber
- (prompt "What should be the maximal number of entries in the command cache ?")
- (help "To the command cache all new entries will be stored for a while every entry needs currently max. 1 KByte of memory, depending on its length.")
- (default 32)
- )
- )
- (set docdir
- (askdir
- (prompt "Where should I copy the guide file ?")
- (help "Normally under OS3.x there is an assign HELP: for documentation files. But the document file can be placed where ever you want to place it.")
- (default "HELP:")
- )
- )
- (copyfiles
- (prompt
- (cat "Copying the file \\"FinalExecute\\" to "
- progdir
- "..."
- )
- )
- (help @copyfiles-help)
- (source "FinalExecute")
- (infos)
- (dest progdir)
- )
- (copyfiles
- (prompt
- (cat "Copying the file \\"FinalExecute.guide\\" to "
- docdir
- "..."
- )
- )
- (help @copyfiles-help)
- (source "Docs/FinalExecute.guide")
- (dest docdir)
- (infos)
- (noposition)
- )
- (copylib
- (prompt "Copying \"datatypes.library\" V45++ to LIBS:...")
- (help @copylib-help)
- (confirm)
- (source "Libs/datatypes.library")
- (dest "LIBS:")
- )
- (copyfiles
- (prompt "Copying the file \\"lamp.mcc\\" to MUI:Libs/MUI...")
- (help @copyfiles-help)
- (source "MUI/Libs/MUI/lamp.mcc")
- (dest "MUI:Libs/MUI")
- )
- (copyfiles
- (prompt "Copying the file \\"lamp.mcp\\" to MUI:Libs/MUI...")
- (help @copyfiles-help)
- (source "MUI/Libs/MUI/lamp.mcp")
- (dest "MUI:Libs/MUI")
- )
- (set fulldir (tackon progdir "FinalExecute"))
- (working "Changing tooltypes now...")
- (tooltype
- (dest fulldir)
- (settooltype "MAXLASTINPUTS")
- )
- (tooltype
- (dest fulldir)
- (settooltype "MAXLASTINPUTS" ("%ld" maxlastinputs))
- )
- (message "The installation is now completed !\n"
- "For important questions read the documentation, please.\n"
- "The preferences for popkeys, appicon etc. can be set\n"
- "by using the MUI prefs of the program.\n"
- "In emergency cases use the program `Exchange`\n"
- "at your Commodities drawer in Tools for call !\n"
- "Lamp.mcc/Lamp.mcp and all according files are Copyright © 1997 by Maik Schreiber/IQ Computing.\n"
- "Updates are always available at http://home.pages.de/~bZ/projekte/mcc_lamp/\n"
- "Datatypes.library V45 ©1996,1997 by Roland Mainz, this package includes only the library !\n"
- "The full and newest version is available at Aminet !"
- )
-
- )
- (
- (abort "You need at least OS3.0 or higher !")
- )
- )
- )
-